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LBR_DATA 6-Sep-1984 01:47: VAX-11 Bliss-32_ V4.0-74 Pa 1) 
or8ee= 1 3be 93:95:3) DISKSVMSMASTER:CLBR.SRCIJDATA.B32;1 (1) | 


1 
1 
! Library access procedure data base 


BEGIN 


' 
SRR ERA ARRAREREEE AREA EERE E EAE AEAAAAE TEES 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
!* ALL RIGHTS RESERVED. 


!® THIS SOFTWARE IS FURNISHED UNDER A LICENSE 
:® ONLY IN ACCORDANCE WITH THE TERMS OF 


ecsssssssssssssss 


AND MAY BE USED AND COPIED 
SUCH ieee AND WITH on 


polo fo le lo lol olololelolelololololo) 


jeleleleleloleolo) 


fag 

3 4 4 

3 5 5 

3 8 $ 1 
; 1 
; 8 8 1 ‘ 
; 9 9 1 % 
; , % > 
: ou 1} : | 
4 ® } 
3 ig g 1 * 
i . | 
; * } 
; #616 6 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE * 
. 7 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

: 618 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

; } +44 : ps TRANSFERRED. * 
3 if ® 

3 $3 0031 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; ¢ bos$ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; 33 00¢8 ix CORPORATION. . 
; H * 

: $ 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * | 
; 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
a ae 0027 1 !* * 
; 0028 1 !* * 
: 9 ot LE eee RARER AAERARARAR RARER EERE ERE EAAA EARTH ERE 
; 0 0030 1 
3 ; 0031 1 !++ 

3 : tt 1! 

; 2 0035 1 ! FACILITY: Library access procedures 

; 34 0034 1! 

$ HH 0035 1 ! ABSTRACT: 
3 6 0036 1! 

ae 0037 1! The VAX/VMS Librarian procedures implement a standard access method 

3 $8 sits : } to libraries through a shared, common procedure set. 

: 40 4040 1 | ENVIRONMENT: 
; 0041 1! 
; «642 0042 1! VAX native, user mode. 

; 645 0043 1! 
3 44 8 44 1 en 
3; 60 «45 45 1! 

;s 0046 1! 
$ rts One : : AUTHOR: Benn Schreiber, CREATION DATE: 11-June-1979 | 
: «649 Be 1 ! MODIFIED BY: 
; 50 1! 

> > a 051 1! v03-002 GJA0090 Greg Awdziewicz 24-Jul-1984 

3 2g O36 : - Change librarian version id to v04-00. 

i; «654 054 1! V03-001 JwWwT0114 Jim Teague 18-Apr-1983 | 
; 7 055 1! Add globals for dcx address tables. Needed in order 

3 28 bpe$ ' to dynamically activate DCXSHR. 
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LBR_DATA 16-Sep-1984 01:47:41 VAX-11 Bliss-32 V4.0-74 Page 3. 
02000 14-Sep-1984 9339534) DISKSVMSMASTERSCLBR SRCIDATA.B32: 1 ’ (2) | 
3 $ 1 1 LIBRARY 
; 6 $6 1 *SYSSLIBRARY:STARLET.L32'; 
> 64 65 1 REQUIRE 
; 65 83 1 *PREFIX'; 
a: Z| REQUIRE anver | 
a Pe sites gesked oe | 
3 ! rarian global data 
: 70 roP yi , | 
; La 1 GLOBAL 
Te: $00 1 i bo not ch the order of the following d A d b 
; ! Do not change the order of the following data. Any new data must be | 
$ a 080) : } inserted at the end. " 
3; wf $808 1 lLbr$gl_control : REF BBLOCK, '‘Pointer to current user control table 
Te «4 0804 1 Lor$gl_rmsstv, ‘STV from Last RMS error 
oy? ie 0805 1 lLor$al_ctltab : VECTOR Clbr$c_maxctl], 'Table of pointers to control tables 
; Bane 1 Lor$gl_hictl : INITIAL(0) 'Highest control index in use 
; 80 0807 1 lbr$gteotdesc : VECTOR (4 BYTE) INITIAL 
; 81 0808 1 (4X '77007703'), 'End of text record 
 . a 0809 1 Lbr$gt_lbrver : countedstring ('VAX-11 Librarian V04-00'), 
; §& 0810 1 Lor$gl_maxread, 'Maximum blocks in one RMS read 
; 0811 1 Lor$gl_maxidxrd : INITIAL (20), ‘Maximum blocks in one index read 
; «6885 Bag 1 dcxshr_address : initial (0); 'base address of dcxshr 
; 686 0813 1 
3 (OY 0814 1! 
; «688 0815 1 ! The following macro generates a table of offsets into the DCXSHR | 
; 689 bBi$ &B transfer vector. Linking LBRSHR with the DCXSHR symbol table, 
; 90 817 1! one can then call LibSadr_image to dynamically load DCXSHR. 
-' = baie 1! The base address of DCXSHR is then added to each of these 
; 3 0819 i DCX transfer vector entries. | 
; 94 M 0831 1 macro dcxsym(a) (J= 
: Mm 08 § 1 external literal %name('dcx$',a); ning 
;s m 0825 1 ete’ AZname('dcx_*,a): initial (%name('dcx$',a) - dcx$analyze_init); 
3 p44 ba5e ' cxsym(Zremaining)%; 
; P 08 § 1 dcxsym (analyze_init,analyze_data,analyze_done, 
: 100 P 08 1 compress_init,compress_data,compress_done, 
3 io) 8 : expand_init,expand_data,expand_done,make_map) ; 
; 108 0830 1 
3: 104 0831 1 END ! Of module 
: 105 0832 0 ELUDOM | 


«TITLE LBR_DATA 
-IDENT \v0%-000\ 


-PSECT S$GLOBALS$,NOEXE,2 | 
00000 LBRSGL_CONTROL: : 
-BLKB 4 
00004 LBRSGL_RMSSTV:: ‘ 


-BLK 
00008 LBRSAL_CTLTAB:: 
-BLKB 64 


Le 


] 

LBR_DATA 18-5¢ S$ep-1984 VAX-11 Bliss-32 V4 P 4 

160-000 ~Reer TSR P3:953g) Ghee la seeSpara.ese:1 72% cof 
00000000 00048 LBRSGL_HICTL:: 


N ' 
77007703 0004C LBRSGT “eats: 
.LONG 1996519171 : 


17 00050 LBRSGT -LBRVER:: 33 
61 69 72 61 72 62 69 4C 31 31 2D 58 41 56 00051 eASCII \VAX-11 Librarian v04-00\ : 
30 8 2D Hy 3 56 20 6€ 0096 cece tags Macaca F 
0068 LBRSGL PAMREAD: 
00000014 0006C LBRSGL “art gag 
00000000 00070 DCXSHR -ADDRESS: : 0 , 
00000000* 00074 DCX_ANALYZE INIT ‘ 
.LONG <DCXSANALYZE _INIT-DCXSANALYZE_INIT> : | 
00000000* 00078 DCx _ANALYZE DATA:: 
. LONG <DCXSANALYZE _DATA=DCX$ANALYZE_INIT> : 
00000000* 0007C DCX_ANALYZE_DONE: 
. LONG <DCXSANALYZE _DONE-DCXSANALYZE_INIT> : 
00000000* 00080 DCX_ COMPRESS _INIT:: 
.LONG <DCXSCOMPRESS_ INIT=DCXSANALYZE_INIT> : 
00000000* 00084 DCX _COMPRESS DATA 
.LONG <DCXSCOMPRESS _DATA-DCXSANALYZE_INIT> : 


00000000* 00088 DCx_ COMPRESS DONE : 
- LONG <DCXSCOMPRESS _DONE-DCXSANALYZE_INIT> : 
00000000* 0008C DCx _EXPAND INIT: 


| 
| 
| 
| 
LONG <DCXSEXPAND_INIT-DCXSANALYZE_INIT> : | 
00000000 00090 pcx EXPAND DATA: | 

- LON <DCXSEXPAND_DATA=DCXSANALYZE_INIT> : 
00000000* 00094 DCX_EXPAND DONE : 

-LONG — <DCXSEXPAND_DONE-DCXSANALYZE_INIT> : 
00000000* 00098 DCX_MAKE_MAP: : | 

-LONG <DCXSMAKE_MAP=DCXSANALYZE_INIT> : 


~EXTRN DCXSANALYZE_INIT 
C ATA 
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m 
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tg “DONE 


“EXTRN _MAP 


; PSECT SUMMARY | 
: Name Bytes Attributes 
; SGLOBAL$ 156 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


; Library Statistics 


yoe=b00 16-Sep-1984 T9553) | ONS cSumGnaSteRsclon sacSpara.e32;1 29° ca} 


ee 


; ecsccese $yEbol§ cocccecs Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 6 0 581 00:01.0 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:DATA/OBJ=OBJ$:DATA MSRC$:DATA/UPDATE=(ENHS$: DATA) 


3; Size: 0 code + 156 data bytes 
3; Run Time: 00:08.4 
; Elapsed Time: O9337-4 
3; Lines/CPU Min: 921 
3 Lexemes/CPU-Min: 49508 
; Memory sed: 91 pages 
; Compilation Complete 
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